home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / general / cdbw.exe / GLOBAL.BAS < prev    next >
BASIC Source File  |  1991-09-12  |  7KB  |  132 lines
  1. 'GLOBAL.BAS
  2.  
  3. 'Standard definitions
  4. Global Const TRUE = -1
  5. Global Const FALSE = 0
  6. Global Const MODAL = 1
  7. Global Const MODELESS = 0
  8.  
  9.  
  10. '========== SAMPLEDB.TXT ==========
  11.  
  12. Type Address
  13.     szStreet As String * 31
  14.     szCity As String * 21
  15.     szState As String * 3
  16.     szZip As String * 11
  17.     szTelephone As String * 13
  18.     szFax As String * 13
  19. End Type
  20.  
  21. Type client
  22.     lClientNbr As Long
  23.     szName As String * 31
  24.     szDescription As String * 61
  25.     dBalance As Double
  26. End Type
  27.  
  28. Type setup
  29.     lNextClientNbr As Long
  30. End Type
  31.  
  32.  
  33. '========== DBMGR.TXT ==========
  34.  
  35. 'dbtalk.dll function declarations
  36. Declare Function DbClose Lib "dbtalk.dll" (ByVal hDb As Integer) As Long
  37. Declare Function DbFileGetLockStatus Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal lpLockStatus As Integer) As Long
  38. Declare Function DbFileLock Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
  39. Declare Function DbFileUnlock Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
  40. Declare Function DbFlush Lib "dbtalk.dll" (ByVal hDb As Integer) As Long
  41. Declare Function DbGetNbrClients Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal lpNbrClients As Integer) As Long
  42. Declare Function DbOpen Lib "dbtalk.dll" (ByVal hParentWnd As Integer, ByVal szDbDir As String, ByVal szDbName As String, ByVal bHide As Integer, lphDb As Integer) As Long
  43. Declare Function DbRecordDelete Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
  44. Declare Function DbRecordFindFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  45. Declare Function DbRecordFindLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  46. Declare Function DbRecordFindNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  47. Declare Function DbRecordFindPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  48. Declare Function DbSetAdd Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  49. Declare Function DbSetDelete Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  50. Declare Function DbSetFindFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  51. Declare Function DbSetFindLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  52. Declare Function DbSetFindNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  53. Declare Function DbSetFindPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  54. Declare Function XDbRecordAdd Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
  55. Declare Function XDbRecordFindByKey Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpKey As Any, ByVal nKeyLen As Integer) As Long
  56. Declare Function XDbRecordGetByKey Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer, lpKey As Any, ByVal nKeyLen As Integer) As Long
  57. Declare Function XDbRecordGetCurrency Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  58. Declare Function XDbRecordGetCurrent Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  59. Declare Function XDbRecordGetFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  60. Declare Function XDbRecordGetLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  61. Declare Function XDbRecordGetNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  62. Declare Function XDbRecordGetPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  63. Declare Function XDbRecordUpdate Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
  64. Declare Function XDbRecordUpdCurrency Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
  65. Declare Function XDbSetGetFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  66. Declare Function XDbSetGetLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  67. Declare Function XDbSetGetNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  68. Declare Function XDbSetGetOwner Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  69. Declare Function XDbSetGetPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  70.  
  71. 'CDB Error Defines
  72. Global Const E_TESTDRIVE = -5
  73. Global Const E_WINALLOC = -4
  74. Global Const E_LOADMODULE = -3
  75. Global Const E_INVALIDCASE = -2
  76. Global Const E_DOS = -1
  77. Global Const E_NORECNAME = 1
  78. Global Const E_NOFLDNAME = 2
  79. Global Const E_INVALIDSET = 3
  80. Global Const E_NOTAKEY = 4
  81. Global Const E_NOTFOUND = 5
  82. Global Const E_NEXTGUESS = 6
  83. Global Const E_NOCURRENT = 7
  84. Global Const E_NONEXT = 8
  85. Global Const E_NOPREV = 9
  86. Global Const E_NOMEMBER = 10
  87. Global Const E_NOOWNER = 11
  88. Global Const E_FILELOCKED = 12
  89. Global Const E_HASMEMBER = 13
  90. Global Const E_HASOWNER = 14
  91.  
  92. 'Currency index
  93. Type currency_index
  94.     filler As String * 36       'Contents of structure not used by
  95.                 '  applications programmer
  96. End Type
  97.  
  98.  
  99. '========== Global Data ==========
  100.  
  101. 'Application name
  102. Global szAppName As String * 32
  103.  
  104. 'Database handle
  105. Global hDb As Integer
  106.  
  107. 'Global mode passed to client form
  108. Global nClientMode As Integer
  109.  
  110. 'Global mode passed to address form
  111. Global nAddressMode As Integer
  112.  
  113. Global Const MODE_ADD = 1
  114. Global Const MODE_UPDATE = 2
  115. Global Const MODE_DELETE = 3
  116.  
  117. 'Global address form return value
  118. Global nAddressReturn As Integer
  119.  
  120. Global Const RETURN_OK = 1
  121. Global Const RETURN_CANCEL = 2
  122.  
  123. 'Setup record
  124. Global setuprec As setup
  125.  
  126. 'Client record
  127. Global clientrec As client
  128.  
  129. 'Address record
  130. Global addressrec As Address
  131.  
  132.